home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / tch_tpas.zip / PROG5.PAS < prev    next >
Pascal/Delphi Source File  |  1986-04-05  |  768b  |  28 lines
  1. PROGRAM PROG5;
  2. {$U+          Copyright (C), 1985 by Lyle Faurot.  All rights reserved.
  3.  
  4.     New Topics: Integer Expressions
  5.  
  6. }
  7.  
  8. VAR
  9.   I, J, I_Cubed  : Integer;
  10.  
  11. BEGIN
  12.   WriteLn('When entering more than one number at once, ');
  13.   WriteLn('use a space to separate the numbers entered.');
  14.   WriteLn;
  15.   Write('Enter two numbers: ');
  16.   ReadLn(I, J);
  17.   WriteLn;
  18.   WriteLn('I = ',I,'      J = ',J);
  19.   WriteLn;
  20.  
  21.   WriteLn('I + J = ',I + J);  {The expression may be calculated }
  22.   WriteLn('I - J = ',I - J);  {within the WriteLn statement     }
  23.  
  24.   I_Cubed := I * I * I;       {or in a separate assignment statement }
  25.   WriteLn('The cube of I = ',I_Cubed);
  26.  
  27. END.
  28.